home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Word Perfect Main Street: Paper Planes
/
WordPerfect Main Street - Paper Planes.iso
/
mac
/
p5-8
/
00028_Script_28
< prev
next >
Wrap
Text File
|
1994-05-19
|
973b
|
36 lines
-- init u.i.
on exitFrame
global Preview, Descrip, Path, Gloss, ToMain, Help
global theVCRButtons
global StepsChannel, StepsMovie, PreviewMovie
cursor 4
set theVCRButtons = birth(script "VCR-Controls", 11, "VCRStop", "Rewind", "Play", "FastFwd")
set Preview = 6
set Descrip = 15
set Path = 16
set Gloss = 17
set ToMain = 18
set Help = 24
set StepsChannel = 3
set StepsMovie = 4
set PreviewMovie = 7
puppetSprite Preview, true
puppetSprite Descrip, true
puppetSprite Path, true
puppetSprite Gloss, true
puppetSprite ToMain, true
puppetSprite Help, true
global theGauge
set theSlider = the number of cast "SliderDrag"
set theGauge = birth(script "FuelGauge", 20, 21, theSlider, "CurrentLevel")
preLoadCast the number of cast "mouse down"
preLoadCast the number of cast "mouse up"
preLoadCast the number of cast "Button-in"
preLoadCast the number of cast "Button-out"
end